/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / Advanced_Math_Samples / pinteg

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 88 84 00 01 00 00 01 00 | 00 00 00 00 03 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 12 31 30 20 20 20 20 | 43 4c 45 41 52 20 53 43 |..10    |CLEAR SC|
|00000110| 52 45 45 4e 00 2f 32 30 | 20 20 20 20 4c 4f 41 44 |REEN./20|    LOAD|
|00000120| 53 55 42 20 41 4c 4c 20 | 46 52 4f 4d 20 22 2e 2e |SUB ALL |FROM "..|
|00000130| 5c 6d 61 74 68 6c 69 62 | 5c 4d 61 74 68 6c 69 62 |\mathlib|\Mathlib|
|00000140| 2e 68 74 73 22 00 00 0f | 33 30 20 20 20 20 49 4e |.hts"...|30    IN|
|00000150| 54 45 47 45 52 20 4e 00 | 00 09 34 30 20 20 20 20 |TEGER N.|..40    |
|00000160| 4e 3d 32 00 00 0a 35 30 | 20 20 20 20 41 3d 2d 31 |N=2...50|    A=-1|
|00000170| 00 09 36 30 20 20 20 20 | 42 3d 32 00 00 14 37 30 |..60    |B=2...70|
|00000180| 20 20 20 20 52 45 41 4c | 20 49 28 33 29 2c 50 28 |    REAL| I(3),P(|
|00000190| 32 29 00 12 38 30 20 20 | 20 20 43 4c 45 41 52 20 |2)..80  |  CLEAR |
|000001a0| 53 43 52 45 45 4e 00 36 | 39 30 20 20 20 20 4f 55 |SCREEN.6|90    OU|
|000001b0| 54 50 55 54 20 43 52 54 | 3b 22 54 68 65 20 64 65 |TPUT CRT|;"The de|
|000001c0| 66 69 6e 69 74 65 20 69 | 6e 74 65 67 72 61 6c 20 |finite i|ntegral |
|000001d0| 6f 66 20 70 6f 6c 79 6e | 6f 6d 69 61 6c 22 00 0f |of polyn|omial"..|
|000001e0| 31 30 30 20 20 20 52 45 | 41 44 20 50 28 2a 29 00 |100   RE|AD P(*).|
|000001f0| 00 12 31 31 30 20 20 20 | 44 41 54 41 20 30 2c 20 |..110   |DATA 0, |
|00000200| 30 2c 20 33 00 15 31 32 | 30 20 20 20 44 69 73 70 |0, 3..12|0   Disp|
|00000210| 6c 61 79 28 50 28 2a 29 | 2c 4e 29 00 00 2e 31 33 |lay(P(*)|,N)...13|
|00000220| 30 20 20 20 50 52 49 4e | 54 20 22 62 65 74 77 65 |0   PRIN|T "betwe|
|00000230| 65 6e 20 61 20 3d 20 22 | 3b 41 3b 22 61 6e 64 20 |en a = "|;A;"and |
|00000240| 62 20 3d 20 22 3b 42 3b | 22 69 73 22 00 1c 31 34 |b = ";B;|"is"..14|
|00000250| 30 20 20 20 59 3d 46 4e | 50 69 6e 74 65 67 28 4e |0   Y=FN|Pinteg(N|
|00000260| 2c 50 28 2a 29 2c 41 2c | 42 29 00 0d 31 35 30 20 |,P(*),A,|B)..150 |
|00000270| 20 20 50 52 49 4e 54 20 | 59 00 00 18 31 36 30 20 |  PRINT |Y...160 |
|00000280| 20 20 44 45 4c 53 55 42 | 20 46 4e 41 69 20 54 4f |  DELSUB| FNAi TO|
|00000290| 20 45 4e 44 00 09 31 37 | 30 20 20 20 45 4e 44 00 | END..17|0   END.|
|000002a0| 00 21 31 38 30 20 20 20 | 53 55 42 20 44 69 73 70 |.!180   |SUB Disp|
|000002b0| 6c 61 79 28 41 28 2a 29 | 2c 49 4e 54 45 47 45 52 |lay(A(*)|,INTEGER|
|000002c0| 20 4e 29 00 00 1f 31 39 | 30 20 20 20 20 20 46 4f | N)...19|0     FO|
|000002d0| 52 20 4c 6f 6f 70 3d 4e | 20 54 4f 20 30 20 53 54 |R Loop=N| TO 0 ST|
|000002e0| 45 50 20 2d 31 00 00 27 | 32 30 30 20 20 20 20 20 |EP -1..'|200     |
|000002f0| 20 20 4f 55 54 50 55 54 | 20 43 52 54 3b 41 28 4c |  OUTPUT| CRT;A(L|
|00000300| 6f 6f 70 29 3b 22 78 5e | 22 3b 4c 6f 6f 70 3b 00 |oop);"x^|";Loop;.|
|00000310| 00 2a 32 31 30 20 20 20 | 20 20 20 20 49 46 20 4c |.*210   |    IF L|
|00000320| 6f 6f 70 3c 3e 30 20 54 | 48 45 4e 20 4f 55 54 50 |oop<>0 T|HEN OUTP|
|00000330| 55 54 20 43 52 54 3b 22 | 20 2b 22 3b 00 11 32 32 |UT CRT;"| +";..22|
|00000340| 30 20 20 20 20 20 4e 45 | 58 54 20 4c 6f 6f 70 00 |0     NE|XT Loop.|
|00000350| 00 15 32 33 30 20 20 20 | 20 20 4f 55 54 50 55 54 |..230   |  OUTPUT|
|00000360| 20 43 52 54 3b 22 22 00 | 00 0c 32 34 30 20 20 20 | CRT;"".|..240   |
|00000370| 53 55 42 45 4e 44 ff ff |                         |SUBEND..|        |
+--------+-------------------------+-------------------------+--------+--------+